1 POKE55,0:POKE56,128:CLR
2 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000
3 DV=PEEK(186):IFDV<8THENDV=8
4 SYS57812"SSX 01",DV,0:POKE780,0:POKE781,16:POKE782,205:SYS65493
5 SYS57812"PSBX 01",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
6 POKE53272,29
7 DIM M$(9),R$(4):F=0:FF=0:S=54272:GOSUB9900
8 SP$="  "
10 FORI=1TO5:READM$(I):NEXT
11 DATA "[208]RINT [208]UZZLES         "
13 DATA "[208]RINT [211]OLUTIONS       "
15 DATA "[210]EAD [201]T               "
16 DATA "[195]REDITS               "
17 DATA "[204]OADSTAR              "
20 TP$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
22 MD$="[221][155]                                      [146][221]"
23 LN$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
24 BT$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
25 GOTO30
26 PRINT"[147]"TP$;
27 FORI=1TO23:PRINTMD$;:NEXT:PRINTBT$:POKE2023,125:POKE56295,1
28 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
30 GOSUB26
32 PRINT"[221][156]               [196]OMINOS                [146][221]";
34 PRINTLN$;
60 POKE214,21:PRINT
65 PRINTLN$;
70 PRINT"[221][154]   [213]SE CURSOR KEYS/[210][197][212][213][210][206] TO SELECT   [146][221]";
80 GOSUB28
100 PRINT"";
102 PRINTTAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
104 QQ$="[221]                        [221]"
105 FORI=1TO7:PRINT""QQ$:NEXT
106 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
107 POKE214,5:PRINT
109 FORI=1TO5:PRINTTAB(9)""M$(I):NEXT
145 SYS52496,6
146 POKE198,0
150 R=5:M=1:POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M):M1=M:R1=R
155 GETK$:IFK$=""THEN155
160 IFK$=CHR$(13)THENGOSUB9930:GOTO200
165 IFK$="[145]"THENM=M-1:R=R-1:IFM<1THENM=5:R=9
170 IFK$=""THENM=M+1:R=R+1:IFM>5THENM=1:R=5
175 IFM<>M1THENPOKE214,R1:PRINT:PRINTTAB(9)""M$(M1):GOSUB9910
180 POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M)
182 M1=M:R1=R
185 GOTO155
190 :
200 ONMGOTO1000,2000,12000,500,11000
205 GOTO150
500 SYS52496,7
525 POKE214,15:PRINT:PRINTTAB(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
527 PRINTTAB(7)"[221]  [208]UZZLE [194]Y [197]D [198]OURNIER [221]"
535 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
544 T=1
545 GETK$:IFK$<>""THEN550
546 T=T+1:IFT<100THEN545
550 SYS52499,7:GOSUB28:GOTO155
555 :
1000 GOSUB9000:IFPPTHEN155
1005 GOSUB6000
1007 OPEN4,4
1010 PRINT#4,SP$;"PUZZLE #1: EASY SIXES"
1015 PRINT#4
1016 PRINT#4,SP$;"PAIRS: 0/0  4/0  4/1  4/2  4/3  4/4"
1019 PRINT#4
1020 PRINT#4,SP$;" -- --  -- --"
1021 PRINT#4,SP$;":  /  ::  /  :  6"
1022 PRINT#4,SP$;" -- --  -- --"
1024 PRINT#4,SP$;":  /  ::  /  : 13"
1025 PRINT#4,SP$;" -- --  -- --"
1027 PRINT#4,SP$;":  /  ::  /  : 11"
1028 PRINT#4,SP$;" -- --  -- --"
1035 PRINT#4,SP$;"  8  4  11  7"
1040 PRINT#4
1110 PRINT#4,SP$;"PUZZLE #2: ELUSIVE EIGHTS"
1115 PRINT#4
1116 PRINT#4,SP$;"PAIRS: 0/0  4/0  4/1  4/2  4/3  4/4  4/5  4/6"
1119 PRINT#4
1120 PRINT#4,SP$;" -- --  -- --"
1121 PRINT#4,SP$;":  /  ::  /  : 19"
1122 PRINT#4,SP$;" -- --  -- --"
1124 PRINT#4,SP$;":  /  ::  /  : 12"
1125 PRINT#4,SP$;" -- --  -- --"
1127 PRINT#4,SP$;":  /  ::  /  :  8"
1128 PRINT#4,SP$;" -- --  -- --"
1129 PRINT#4,SP$;":  /  ::  /  : 10"
1130 PRINT#4,SP$;" -- --  -- --"
1135 PRINT#4,SP$;" 17  9  11 12"
1140 PRINT#4
1210 PRINT#4,SP$;"PUZZLE #3: DIRTY DOZEN"
1215 PRINT#4
1216 PRINT#4,SP$;"PAIRS: 0/0  4/0  4/1  4/2  4/3  4/4  4/5  4/6  ";
1217 PRINT#4,"5/1  5/2  5/3  5/6"
1219 PRINT#4
1220 PRINT#4,SP$;" -- --  -- --  -- --"
1221 PRINT#4,SP$;":  /  ::  /  ::  /  : 25"
1222 PRINT#4,SP$;" -- --  -- --  -- --"
1224 PRINT#4,SP$;":  /  ::  /  ::  /  : 23"
1225 PRINT#4,SP$;" -- --  -- --  -- --"
1227 PRINT#4,SP$;":  /  ::  /  ::  /  : 15"
1228 PRINT#4,SP$;" -- --  -- --  -- --"
1229 PRINT#4,SP$;":  /  ::  /  ::  /  : 18"
1230 PRINT#4,SP$;" -- --  -- --  -- --"
1235 PRINT#4,SP$;" 17  9  14  9  11 21"
1240 PRINT#4
1310 PRINT#4,SP$;"PUZZLE #4: FRANTIC FIFTEENS"
1315 PRINT#4
1316 PRINT#4,SP$;"PAIRS: 0/0 4/0 4/1 4/2 4/3 4/4 4/5 4/6 ";
1317 PRINT#4,"5/1 5/2 5/3 5/6 5/0 5/5 1/0"
1319 PRINT#4
1320 PRINT#4,SP$;" -- --  -- --  -- --"
1321 PRINT#4,SP$;":  /  ::  /  ::  /  : 19"
1322 PRINT#4,SP$;" -- --  -- --  -- --"
1324 PRINT#4,SP$;":  /  ::  /  ::  /  : 11"
1325 PRINT#4,SP$;" -- --  -- --  -- --"
1327 PRINT#4,SP$;":  /  ::  /  ::  /  : 24"
1328 PRINT#4,SP$;" -- --  -- --  -- --"
1329 PRINT#4,SP$;":  /  ::  /  ::  /  : 14"
1330 PRINT#4,SP$;" -- --  -- --  -- --"
1331 PRINT#4,SP$;":  /  ::  /  ::  /  : 29"
1332 PRINT#4,SP$;" -- --  -- --  -- --"
1335 PRINT#4,SP$;"  9 18  21 16  16 17"
1500 PRINT#4:CLOSE4:GOTO155
1505 :
2000 GOSUB9000:IFPPTHEN155
2005 GOSUB6000
2007 OPEN4,4
2010 PRINT#4,SP$;"PUZZLE #1: EASY SIXES"
2015 PRINT#4
2016 PRINT#4,SP$;"PAIRS: 0/0  4/0  4/1  4/2  4/3  4/4"
2019 PRINT#4
2020 PRINT#4,SP$;" -- --  -- --"
2021 PRINT#4,SP$;": 0/0 :: 4/2 :  6"
2022 PRINT#4,SP$;" -- --  -- --"
2024 PRINT#4,SP$;": 4/4 :: 4/1 : 13"
2025 PRINT#4,SP$;" -- --  -- --"
2027 PRINT#4,SP$;": 4/0 :: 3/4 : 11"
2028 PRINT#4,SP$;" -- --  -- --"
2035 PRINT#4,SP$;"  8  4  11  7"
2040 PRINT#4
2110 PRINT#4,SP$;"PUZZLE #2: ELUSIVE EIGHTS"
2115 PRINT#4
2116 PRINT#4,SP$;"PAIRS: 0/0  4/0  4/1  4/2  4/3  4/4  4/5  4/6"
2119 PRINT#4
2120 PRINT#4,SP$;" -- --  -- --"
2121 PRINT#4,SP$;": 5/4 :: 4/6 : 19"
2122 PRINT#4,SP$;" -- --  -- --"
2124 PRINT#4,SP$;": 4/1 :: 3/4 : 12"
2125 PRINT#4,SP$;" -- --  -- --"
2127 PRINT#4,SP$;": 4/4 :: 0/0 :  8"
2128 PRINT#4,SP$;" -- --  -- --"
2129 PRINT#4,SP$;": 4/0 :: 4/2 : 10"
2130 PRINT#4,SP$;" -- --  -- --"
2135 PRINT#4,SP$;" 17  9  11 12"
2140 PRINT#4
2210 PRINT#4,SP$;"PUZZLE #3: DIRTY DOZEN"
2215 PRINT#4
2216 PRINT#4,SP$;"PAIRS: 0/0  4/0  4/1  4/2  4/3  4/4  4/5  4/6  ";
2217 PRINT#4,"5/1  5/2  5/3  5/6"
2219 PRINT#4
2220 PRINT#4,SP$;" -- --  -- --  -- --"
2221 PRINT#4,SP$;": 5/4 :: 6/4 :: 1/5 : 25"
2222 PRINT#4,SP$;" -- --  -- --  -- --"
2224 PRINT#4,SP$;": 4/1 :: 4/3 :: 5/6 : 23"
2225 PRINT#4,SP$;" -- --  -- --  -- --"
2227 PRINT#4,SP$;": 4/4 :: 0/0 :: 2/5 : 15"
2228 PRINT#4,SP$;" -- --  -- --  -- --"
2229 PRINT#4,SP$;": 4/0 :: 4/2 :: 3/5 : 18"
2230 PRINT#4,SP$;" -- --  -- --  -- --"
2235 PRINT#4,SP$;" 17  9  14  9  11 21"
2240 PRINT#4
2310 PRINT#4,SP$;"PUZZLE #4: FRANTIC FIFTEENS"
2315 PRINT#4
2316 PRINT#4,SP$;"PAIRS: 0/0 4/0 4/1 4/2 4/3 4/4 4/5 4/6 ";
2317 PRINT#4,"5/1 5/2 5/3 5/6 5/0 5/5 1/0"
2319 PRINT#4
2320 PRINT#4,SP$;" -- --  -- --  -- --"
2321 PRINT#4,SP$;": 1/4 :: 5/3 :: 4/2 : 19"
2322 PRINT#4,SP$;" -- --  -- --  -- --"
2324 PRINT#4,SP$;": 1/5 :: 0/0 :: 0/5 : 11"
2325 PRINT#4,SP$;" -- --  -- --  -- --"
2327 PRINT#4,SP$;": 2/5 :: 5/5 :: 3/4 : 24"
2328 PRINT#4,SP$;" -- --  -- --  -- --"
2329 PRINT#4,SP$;": 1/0 :: 5/4 :: 4/0 : 14"
2330 PRINT#4,SP$;" -- --  -- --  -- --"
2331 PRINT#4,SP$;": 4/4 :: 6/4 :: 5/6 : 29"
2332 PRINT#4,SP$;" -- --  -- --  -- --"
2335 PRINT#4,SP$;"  9 18  21 16  16 17"
2500 PRINT#4:CLOSE4:GOTO155
2505 :
6000 OPEN4,4
6005 PRINT#4, "  #101 - DOMINOS"
6010 PRINT#4:CLOSE4:RETURN
9000 SYS52496,7:PP=1
9005 POKE214,15:PRINT:PRINTTAB(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9010 PRINTTAB(7)"[221]  [208]RINTER [210]EADY? [Y/N]  [221]"
9025 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
9035 GETK$:IFK$=""THEN9035
9036 IFK$="Y"THENPP=0
9040 SYS52499,7:GOSUB28:RETURN
9045 :
9800 POKE214,21:PRINT:PRINTLN$;
9805 PRINT"[221][154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
9810 GETK$:IFK$<>CHR$(13)THEN9810
9815 RETURN
9820 :
9900 FORI=0TO24:POKES+I,.:NEXT:RETURN
9910 POKES+24,15:POKES+5,9:POKES+6,0
9915 POKES+1,19:POKES,63:POKES+4,17
9920 FORT=1TO50:NEXT:POKES+4,16:RETURN
9930 POKES+24,15:POKES+5,9:POKES+6,0
9935 POKES+1,48:POKES,0:POKES+4,17
9940 FORT=1TO50:NEXT:POKES+4,16:RETURN
10000 OPEN15,8,15,"S0:DOMINOS 01":CLOSE15:SAVE"0:DOMINOS 01",8:END
11000 POKE214,15:PRINT
11005 PRINTTAB(7)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
11015 PRINTTAB(7)"[221]  [193]RE YOU SURE?  [Y/N]  [221]"
11025 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
11030 GETK$:IFK$=""THEN11030
11035 IFK$<>"Y"THENSYS52499,6:GOTO150
11037 PRINT"[147]":POKE53272,23
11050 GOSUB30000
12000 SYS52496,7
12001 GOSUB26
12005 PRINT"[221][156]               [196]OMINOS                [146][221]";
12010 PRINTLN$;
12015 PRINT"[155]   [201]NSERT THE DOMINOS (NUMBER PAIRS)
12020 [153]"LIST HORIZONTALLY INTO THE SPACES
12025 PRINT"[155] PROVIDED SO THAT THE NUMBERS WILL
12030 [153]"LIST ADD UP TO THE GIVEN TOTALS BOTH
12065 PRINT"[155] HORIZONTALLY AND VERTICALLY.  [213]SE
12070 [153]"LIST EACH NUMBER PAIR ONCE.  (null)HE NUMBERS
12075 PRINT"[155] MAY NOT BE SEPARATED BUT MAY BE
12080 [153]"LIST REVERSED (I.E. 4/1 MAY BE 1/4).
12085 PRINT"[155]   [208]LEASE ALIGN YOUR PAPER AT THE
12090 [153]"LIST VERY TOP.
12100 GOSUB9800
12105 SYS52499,7:GOSUB28:GOTO155
30000 FORI=8TO9:OPEN15,I,15:POKE781,15:SYS65481:SYS65484:IFST THEN30030
30010 PRINT#15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
30020 IFER=63THENDV=I:I=9:NEXT:GOTO30040
30030 NEXT:POKE2048,0:POKE44,8:PRINT"[147]":END
30040 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)","DV
30050 PRINT"RUN"
30060 POKE43,1:POKE44,8:POKE2048,0
30070 POKE631,13:POKE632,13:POKE198,2:END
40000 SYS57812"PSBX 01",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[196] [207] [205] [201] [206] [207] [211]":Z$(1)="BY [197]D [198]OURNIER"
60040 Z$(2)="[214]1.0 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]